home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / axel_f.arc / AXEL-F.BAS (.txt)
Encoding:
GW-BASIC  |  1986-02-21  |  1.9 KB  |  32 lines
  1. 10  CLS:KEY OFF:WIDTH 80:LOCATE 3,34:PRINT "A X E L   F"
  2. 20  A1$="O3L8 MLF#MNP8A.F#F#16BF#E MLF#MNP8>C#.<F#F#16>DC#<A F#>C#F#<F#16EE16C#G#F#4.P4P2"
  3. 25  A$="O3L8 MLF#MNP8A.F#F#16BF#E MLF#MNP8>C#.<F#F#16>DC#<A F#>C#F#<F#16EE16C#G#F#4.P4 P16O2E16C#<BA"
  4. 30  B$="O1L8MN F#>P8F#.<E.>E16<C#>C#<E F#P8>F#P8P16<C#16>C#EF#< DP8>D.<E.>E16<C#EF# >F#4P4P16E16C#<BA"
  5. 40  C$="O4L8MS P8C#C#MNC#16E16P16MSEMNE16MSD#D# D#C#C#MNC#16E16P16E16MSD#C#MN<A P8MSAAAMNA16MSBMNB16P16MSBMNB16 MSB>C#C#C#<MNB16>MSC#MNC#16P16C#16P8"
  6. 50  D$="O3L8MN A.E.A.E.AE A.E.A.E.AE A.E.A.E.AE A.E.A.E.AE"
  7. 60  E$="O4MNL8 E16C#16<B16AB>C#16EC#<BA"
  8. 70  F$="O3MSL8 P8AAAMNA16MSBMNB16MSP16BMNB16 MSB>C#C#C#<MNB16MS>C#MNC#16P16C#16P8"
  9. 1000  PLAY"MFT120;XA1$;XA1$;":PRINT:PRINT TAB(40-10);"by Harold Faltermeyer"
  10. 1010  PLAY"XB$;XB$;":PRINT:PRINT TAB(40-30);"Theme from the Paramount Motion Picture "+CHR$(34)+"Beverly Hills Cop"+CHR$(34)+"."
  11. 1020  PLAY"XA$;XA$;":LOCATE 12,40-11:PRINT"Brought to Your PC by:"
  12. 1023  PLAY"XC$;XC$;":PRINT:PRINT TAB(40-10);"DR. WHO  (Summit, NJ)"
  13. 1025  PLAY"MB":PLAY"XB$;"
  14. 1026  X$=CHR$(254):GOSUB 2000
  15. 1027  PLAY"XB$;":X$=CHR$(15):GOSUB 2000:PLAY"XA$;":X$=CHR$(1):GOSUB 2000:PLAY"XA$;":X$=CHR$(2):GOSUB 2000
  16. 1030  PLAY"XD$;":X$=CHR$(178):GOSUB 3000:PLAY"XD$;":X$=CHR$(32):GOSUB 3000
  17. 1035  FOR II=1 TO 2:PLAY"XE$;":NEXT II:X$=CHR$(206):GOSUB 3000:FOR II=1 TO 2:PLAY"XE$;":NEXT II:X$=CHR$(177):GOSUB 3000
  18. 1037  FOR II=1 TO 2:PLAY"XE$;":NEXT II:X$=CHR$(176):GOSUB 3000:FOR II=1 TO 2:PLAY"XE$;":NEXT II:X$=CHR$(219):GOSUB 3000
  19. 1040  PLAY"XC$;XC$;XF$;"
  20. 1050  PLAY"XA$;XA$;O1F#8P8P4P2":FOR I=1 TO 700:NEXT:X$=CHR$(32):GOSUB 3000
  21. 1090  SCREEN 1:SCREEN 0,0,0:WIDTH 80:KEY ON:END
  22. 2000  FOR I=2 TO 79:LOCATE 1,I-1:PRINT" ";:LOCATE 1,I:PRINT X$;:FOR J=1 TO 1:NEXT J:NEXT I
  23. 2010  FOR I=2 TO 24:LOCATE I-1,79:PRINT" ";:LOCATE I,79:PRINT X$;:FOR J=1 TO 2:NEXT J:NEXT I
  24. 2020  FOR I=78 TO 1 STEP -1:LOCATE 24,I+1:PRINT" ";:LOCATE 24,I:PRINT X$;:FOR J=1 TO 1:NEXT J:NEXT I
  25. 2030  FOR I=23 TO 1 STEP -1:LOCATE I+1,1:PRINT" ";:LOCATE I,1:PRINT X$;:FOR J=1 TO 2:NEXT J:NEXT I
  26. 2040  LOCATE 1,1:PRINT" ";:RETURN
  27. 3000  FOR I=2 TO 79:LOCATE 1,I:PRINT X$;:FOR J=1 TO 1:NEXT J:NEXT I
  28. 3010  FOR I=2 TO 24:LOCATE I,79:PRINT X$;:FOR J=1 TO 2:NEXT J:NEXT I
  29. 3020  FOR I=78 TO 1 STEP -1:LOCATE 24,I:PRINT X$;:FOR J=1 TO 1:NEXT J:NEXT I
  30. 3030  FOR I=23 TO 1 STEP -1:LOCATE I,1:PRINT X$;:FOR J=1 TO 2:NEXT J:NEXT I
  31. 3040  LOCATE 1,1:PRINT X$:RETURN
  32.